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SUMMARY 

A now version of CTSS IIS* i <= now aval l.-M". Th« 
svsten provides additional dsta storage nrd several' 
functions and constants. The l/n copqfeTMtl-s, F.XCISF, the 
cr--rcTO Mfs , wi several routines h*vo h»en Improved. 
Much Irrelevant co^e End n»ny hugs have ^11 b««n rervjvod, ' 

FAP source d"c';s and RHi listings are availcbl" T h e 
Jacks .?re r>r?;nl7e'< «o as to ^sp the joh of "pssg-iM I n* 
private LISP systems In which impeded Features ire absent." 

Without reassembling, the usar can craate a private 
LISP system Ir which the data storn £ e spece has been 
arititrarlly allocated eraons binary proyrm seacc, tb" 
push-down list, full word space, and free stors««.' 

■ 

■ 

It Is assumed tMt the reader Is famHUr with the old 
Version of MSP *s d*scrlb*d in A1 Mcnos 67 and 7fc (MAC 
M-155 nnd M-206) 
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iH^mrJLLb. il'.rJr«: ^"N-n ->■» _pm ^r-i »h ft Mr... y » rf | nv 

!) Th* EVAI.n.lllTE wrf th* t.rvn nutUcs r*aH fMos -Ith 
s^ronHsry o?m<> USP Instead of uftTA. 

?c nn ..I h r P " m ; ™ ut ' nfl '"■'*"* f H« with sr^-^ry qj.^ 

Tho ?hovo chants w»r* narfo in o-H".- tn obtain s^pricl 
treatment fro-i other CTSS pro<rrn«ns such is RQU*$T PRINT. 

3) The character (\h)9 (**&) | s n o lon-or aouTv»l©nt to 
the minus st-n, although rh« ajwal for th» ninus s i *n Is 
still HASH. This sqii I v? 1 *nco was originally i ntroducpd"a-; a 
convenience for usors of th« cord punch e^uTpmant. 

c«mJ!! C ' :her «M''-rftndlnc function* ADVANCE, STARTRFAD, and 
EMWEAO -nrcoss Che c^n<o1e Instead of the disk. 

5> w;--.es of t»>p new sy^te-n subroutine nay C nnflict with 
namas of functions previously Hofi n «d by th? trser. 

6) Routines which modify absoluto' locations of the old 
LISP systpw will not hav* th« sane effoc on the now nn fi . 
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FpflfMrr»s of thf> f'^v-f S*/ s tSD 



LISP Th* prorranxWll execute LISTEN *ftpr 

typing 

L1THP IS LITHTFMImr 

LISP 'NOCOMT 1 The system will ^xrcutA LISTFtt without 

typing thp ^5<;?»p^ above. 

IISP ' $S ' ..- The system reads th* re«* 1 ndf>r of the 

command arstmentS ?n/* Elvos them to 
EVALQNOTE to He executed. The corwand 
should end with i STOP, This feature Is 
intended to ho used in conjunction With 
the CHAIN program* 

LISP FOU The file FOO LISP is r*H<i and evaluated. 

Note that the old version read the file 
FOO DATA. 



J ^n^jj n di f i rnr ions 

3) If a disk error occurs the now version will r^nnrplly 
pr int th** fo 1 lowl rift 1 1 ne: 

DISK F*ROR, SA"F AMD PRMTHR, 09 START AIVEI'P 
If the us*ir executes 

STAPT 'rjlVEHP 1 

t^on th*» i*pss'*r* hel«v*J will he written, 
+*« FPROU CALLFH 



and the syste-i will rev«rt to the top level as with any 
oth^r error. 

Howover, if the us*r executes 

SAVE FOO T 

PRMTFR 

th^n tho consent* printed hy PRNTFft will enable Mn to 

decide whether 1 h« can ch?nfo his files in such ? way that 
the crr^r wl 11 not occur a second rir*e. If s f :ch a chanre can 

ho me He t^cn 
RESUME FOO 
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will rotry the offen**in^ I/O cnll an^l continue fho pro^r?^ 
^ron rh=st point. Otherwise 
RESUME POO tQiVEUP 1 

will h*vp t*ir* s*ne effecr *s tho STJPT 'fifVFIIP' flhovr. 

Exceptions to thf* l/n orror proee 4 »ir* r*Ivcn ^hovc: 

F1LFSF.EKCA ft) Filo A n is cloned *nd then reopened* 

Any error* ofourrlnj? during the closing 

of the f I le *s-e Ignored. 
FILFnELFTECA *) Alt errors oeowrln<* white deleting the 

file r*ro Ignored. 
FIIFAPU'UA R) If file A 3 Is nonexistent this acts <->s 

If It wore FILFW^ITEfA S) 

7) The disk readies routines will automatically place one 
blenk Followed by 3E0F? ))))) following the Inst word of a 

f i le. JEOFS is reco;rnIzM by the FVALHEAD, IOAD and 

EVALQUOTE program* as bavins the svie effect OS a STOP, The 

advantage! of $pofj over stop Is that it is not physically 

present In the file and thus 9 1 lows flics to he FILEAPNDed 
or C'JMRI Ned oasl ly. 

5) Sqn^shsH f I los can bo re^id In thr new system. The t r 
advanta^a ov^r rard*lnage files tp th*t chay require less 
tr^ek spsee end .^rc tberefore resd faster by the sy?t*"*. 
S^u^s^e* 1 f 1 1ft* may b*> freely intoy-M *nH *#[ th c^rH-ir^,^ 
filo^ and cnn^ol" I/O except that a flic forqind hy .COMB I Mi 05 
C^rd^lflW^fi *nd squashed files nay p^t be r^nrt. A c^rH-tro<v*e 
fil^ with aton n^mes split across column 7? should not ho 
squashed, 

h) The f 1 lawrl tin*: routines produce fiU^ in snuashed 
form. Lire lo^pth vr<rlos froi*i ? to 39 v#<"»rds ^nrf »vera*:^s 
about 1? words. Atom* ;*re not split nv^r lino boundaries. 

5) The filp*^ w-ltfn by PUNCH h9v<* secondary nare I.SP0UT 

instead of OUTPUT* 

fi) "File? are ro^d a rrcor^ f'i^? word?) at a time. This 
c^i'sns an approximate thre^-fcld ircrease in snpnH, 

7) The character r*ad(nf functions AOVANOF, STARTREAD, *nd 

FMOREAD fcco^s the console Instead of tho disk. 

ft) The ch^r^cter (ii*. )jj (d^sh) v - **s formerly enulv^lent f o 
tho minus sign* Thjs e.quIvr1f*nco h?*s beon remo^ort slnco nv^st 
ir^nr*: employ p conrol^ t-'h I r b d^**s, not contnln ^ d^rh 
rh^r^rt^r. Tb^ R!>vfJ DAS IV still- hn«; ?s voluo a ^Inus sign*. 

9) The elphphotlf: npvflls PR[HF(')^ TYTAR<t-^b) / OJHr^rr i r^n 
ri^r^ro)^ -^od COLOMf:) hi*vo bo A P n^d*^. ! ^^d * pre clnss A 
r'l^r^cter^* T^b ^rri cflrrlfli*e r^tuT ^re class C ch-ir^rters 
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CLO^K(X) CLOCK(NIL) r«s**ts "n Interval t.tnir and 

has value o. CU>CK(*T*> has *c value 
the nunh^r f\f c n Pt^r o* s*o^r>ds th? 
pro^rfl'n has so^nt In execution sincn the 
Inst tlAift CIPCK(NIL) was c*n«H, If th* 
pro*r?n *oes Into the *forw*nt sf^te, by 
quitting s^y, then the tl^ ft r wMl s'op 
Increment i nj; it will not restart until 
CLO^KfVIl) i* explicitly tflven ?^?In, 

EX^LOOFtX) RmuI ts in ^ 1 i*t pf the characters 

which uould he printed by PRINT(X). 

FILFG0«F<A B> has value NIL if file A B exists, *T* 

otherwl so* 

PliMCHPO. causes *">' 1 further disk output to be in 

P^rmenvnt nod**. . This is the default 

mode. 

PUNCHTO ;■ causes further * disk output to "be in 

te^por^ry nodr. 

RPLACWCA R) Is equivalent to RPLAC0(A finR(ft)> 

followed by R*I.ACA(A CAIK*)), 



, ROSRFMAINnE°( * yields th* nnnh^r n* w*Ms r^r'rlne In 

/. + binary proPT^ S!>*c* as a LISP fixed 

pol nt number* 

■ 

FSLF-FT is *n **nv*l ■-+**» value is *he number* of 

words of free storage collected during 
the Inst rail to the ?;arba*e collecror* 

FWLEFT ls<in apv<il wbo?e value is the number of 

ful 1 word* collected Hvr t ->ej the la? t 
... T - caM to the *;arba^e collector. 



?ypT(fi Bl " EX p 7 has '^:n C0!*pl a t*l!' r*wrl (t*»n. It 

.'" . .■ [*.f^5?nr, ■shorter ^iv 1 pern accurate thap 

,.♦ f i '■ £nvforc« ' I f A Is nefr-'tl vo E^d R is * 

*'. *- ..float in* ro let number ,. then the absolute 



EXPSUB(A) 



LOOSUR(A) 
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value of a I? used. 

This routine is an entry to ths FXPT 
routine. It evaluates " c - to ^ t ho-A, ' i t 
does not handle LISP numbers, r tr. Inputs 
and outputs %rc f lo^tln^-point lumbers 
In the AC, 

Coxites ln*r(A) tn b*se i>« It Hoes nor 

handle LI<=P numbers. Its input-: *nd 

outputs nre f Mar i n**-point lumbers Tn 
the AC, 



DIVIDE CHECKS Systwi h*s beon ch*n**d to Ireore dlvld* 

chunks. 

FLOATING point TPAP The system has hm n nhnn E nd to Mvft 

no ^rror wh«n a floating "pMet trfcp 
oeritr*. I n^tead the standard FORTRAN 
routine Is used to restore the AC *nd 
HO 4 



'NUMVAL(X) 



If X Is a LISP number then HUWVAL 

yields pointers to the value of X in the 

AC and ?FI X or SFLOAT i n the hq. 

Otherwise It yield*; *** EttfiOR MrMVAl . 



J ^vlg.P.*** 1 »n Sytfon F'Mnr-ti 
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SUBUSCX Y) A nw sunns fs*- At Meno 7'i) is In the 

system, it is-an EXPR, Rnd if compiled 
will be faster th?n the old SUBLIS, Bu;s 
In the Hert-licGnrthy version hPve been 
removed, TH« rot-tine usns the subroutine 
SIIRLIS1, 
* -i- • » 

LITER/OPCMAR These* "routines ?r^ now FXP n v*, 

The routines above ran he removed by the ust. 

UNSATISFIED CONDITIONAL The old , r ror *A 3* h*s been 

removed. The value of - an unsAtT^f led 
con-* I tionnl is ir|i B Frror *0 i* - 

unsatisfied cnndl tlnnM In co^pl led 
functions - hes nlso h*en ronoved. 



* * * 
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The following hii£s are knoi"n tr> ^ylst In tho compiler 

and have not ho*n corrected M ^rsscnt. 

.- * ■ i 

1) Th<? fo11Wv p Tn2 forn compiles ircorrcctly 

CCDHD( FOO<SET<! X (CO)jn ,.,>))) 

2> (COKn((Hf>TfORCEf!..,)£Ea ...)>) ...) . ..) also 

eonpl ?c* i ncorrectly. 



A new EXCISE has H<?<?n put into rh* 5^'StfW. TMs FXH SF 
^limin^f 1 ^ sonr> o^ th** Hw^S pr*<«nt In tM oM vrrfor of 
LISP pp^ \ r effectively ftF'IOts w»ny oh^ctt o^ v^l'i** orly to 
th^ ro'npllor. Fr«o sr^r - *^^ pntn*H by cyr|$C(*T») h»s H**n 

On ftX^tslnj; th* connllpr the following functlA*>9 will 

bcroP»* undefined! CO"PKE, (WO^ IJWWHiMO", S D ECUL and 

UKSPECIH* Upon *>xr|<:iorj of L* D ^11 C h«i Instructions 

commonly used are REMOSed alon* wl th LAP, SAL I ST ard 

QPDFFINE. 

EXCISE Is POti «n EXPR. IT .CMQUin KOT _ft.F POMP! I Fn . 



• * .* ^ - t ■ 



- 
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There ar* four storage par^notors In USP. Th«so *re 
the lengths of fret* staroEfi* full ward spsce/ push *town list 
and binary projrafi space, 'n both the old nnd nev* vorslons 
the first three heve the values 2'iOOQ, t*?2ll and 501(1 (octal) 
respect i vely. Binary program sp*ce In the new systei is 
approximate! y 15500 (octal) locations Ion? which Includes <*n 
effective Increase of OOil (decimal) locations* 

In order to nodi f y those par meters execute the 
fol lowi ng: 

I IKK PARAM ROD T?n? 2^17 
RONC0M PARAM Nl M2 K3 SYSTFM 

where 

Nl= number of words on the push down list in octal 

N2 = nu^h^r of worHs Ir full wnrd spar** In octal 

M?" number of words In free storage Tn octal 

■ - • ■ SYSTEM" name of the new LISP sy*te*i 

The new system will be created with th^se scorflso 

p^r^rret^rs • Length of binary program $?vice will b A the 

difference bfftwpn the tr*t**l space pvallablr* and the suti o* 
the throe par^notors <*'von. 



Cretin,** a Ni*w Sv^ten 



It is possible to assemble j\ private version of the 

LISP system which has rmr* storage available due to the 

deletion of certain routines. The. authors should be 

consulted before this is attempted. One can Rfiln about 500 
(decimal) words by deleting the p»«nch routines/ about 200 by 

deleting the AlWAY fpature and approximately 325 words by 
deleti ng the f loati nj; poi nt routi n*s. 



/ 



- ■ ■ 
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FJJPOR 



The error routine hn S been rewritten to ylniH P rro- 
the f o n,or «," ,n "»nrc -rontent. The error n* ssa(: e is of 

•** ERROR FOO 

where FOO Is to be found below. Refer to paees 32-34 of 
tno manual , 
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NEW DESCRIPTION 

CALLED APPLIFD FUNCTION CALLED FRROR 

UHDFFN UHDPFINl-n FUNCTION- APPI V 

r-vwpd CONDITIONAL UNSAT I SF 1 Fn *( seP ahove) 

SETONy SFTO ftlVFN OH NOHFXISTEVT PROGRAM VARIARIF 

muI™ * Pr fi|VeW ni " NOHFYISTFNT PROGRAM VARJAR'F 

ijmdfpo undefined on 

TMWARG TOQ MAWY AR«1IWF*'TS 

llRMr>V9 UNRlntlKn VAHfA^LF - FVAl 

UMPFC'J - U*»)FFINEn FUNCTION - fVAL 

removed. IJHSATI SPIED CO^I Tin»'AL IN COf^PI LFD FUNCTION 

P1fl]2fl PRINT NAME TOO LOW - PACK 

MUHOB FLOAT! MP POINT MtHIRER OUT OF RANGE- NUMIM 

rr-'ov«rf TAPF READING fpROP 

CNSCTR COWS rOUHTFR TRAP 

A1LSA2- FIRST ARGUMENT LIST SHOPTER THAN SECOND 

*TRTRP SEC0ND flF * fi " MI *T LIST SHORTER THAN FIRST 

removed FLO AT I HP POINT TRAP OR DIVIDE CHECK 

PI) LOUT OUT OF PUSH DOW*.' LIST 

removed FATAL ERROR - RECLAIMER 

MOIIOOM HOT ENOUGH WORDS COU.ECTFD - RECLAU'CR 

HA^YRil ■ NOT ENOUGH ROOM F0<> ARRAY 

removed FIRST AllfiUHEKT NEGATIVE - EXPT 

NUHVAL RAD ARGUMENT - NUMVAI. 

FtyVAL RAO ARGUMENT - FIXVAL 

I.APPRG UNABLE TO DETERMINE ORIGIN - UP 

BPSOHT OUT OF BINARY PROGRAM SPACF 

LAPRMB UNOFFINFD SYMBOL - LAP 

I.APSUB FIEL* CONTAINS Sl'P-SI'BF I ELDS - LAP 

rnrroved OVERLORD ERRORS 

P1NATM PPINJ A^KFO TO pn | NT NOM-OBJECT 

READER CONTEXT EPROR |N P.EADING 

REA1F" CONTEXT E oo 0P IN READING 

II. CHAR ILLEGAL C"AHACTER 

rei-inv^d END of filf om rf^dimg 

HCHftSn PRIf!T NA»E CPEATFP THA»' 3D PMAPAOTERS 

N"TBIG M>M"FR TOO rip jm r/Vvy^S IO>J 
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TRAC(L) a Tracing Function for LISP (hy A, Guzman) 

TftAC provides ? printout of the values of the arguments 
and the functions contained In the list l„ each tine these 
functions are called. 

1) We n>ay o'M t the printing of certain or all of tho 
arguments' of the traced function, nnd/or of its value. We 
may ask to have certain arguments punched on the disk, so-ne 
other printed on the console/ sonfl on both, and still orfllt 
SOttC others. The sa^o options exist f^r the value of the 
function* This fs a convenience when some arguments are very 
Ions, or their values are already known or pre Irrelevant, 

2) We nay print the value of any other variable which we 
know Is hound at the tine the traced function Is entered* 

3) The depth of recursion is also printed. 

The ability to s<*nH output to the disk permits us to 
have a rather lar*e number of S-oxp^MsKins stored (hy T^AD 
on the disk, which may he printed laf*r, and at the sa-ne 
t<me It permits us to have a reasonable anount of output 
on-llno, on the console^ 
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TRAC (( NAHE1 HAME2 . ., NAMEn)) will produce normal 

tracing of the functions NM!E1 / NAMF2,..,, that Is, the 
arguments and the value villi be printed on the console only. 

TRAC (<HAME1(I VI II V2 12,, . ,,Vn In> NAME 2 .,*)> 
indicates that we also want the values of the additional 
variables VJ, V?,.,. Vn; the Is to their rir.ht are atoms 
which specify the destination of these values; Ik may he 
P(pr int ), IX punch on dl sk),P0(both pr I nt and punch) or 
N(neither). I, the first indicator, tells us what to do with 
the normal tracing of the function; that lr-, this first atom 
decides to which output device(s) we will send the Brcunents 
^n<\ the value of the function. For example, T9AC(<FO0fP^ X 
P Y D> FIE (0) )) indicates th*t the arguments and the value 
of F90 will he sent to the disk *nd will also appear on the 
console; in addition; we wart to orlnt fP) the variable X, 
and vre w*nt to'sen** to * the di sk (0) the "arlahlo Y, We also 
want the arguments an** phe value of FIF to be punched onto 
the disk(D), and we do not* specify any extra variables for 
it* 

TI>AC(CM.'1E1 f(Al A? ,.,)l VI M V? I? ...)MAH£? .„)) 

This example Is han^l^d as before, hut now the 
additional list to the left of I teM* TPAC to consider 
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NAME] as a function only of tho *rj:un^nts A1 V A?, ... ■ 

a*st n, I will Indicate to whi ch output rtpvic^fs) those 
ar£un*ents and the value of MAMF1 are sent. 

If we are Interested only fn the valUQ of a function: 
TRAC(< NAME} (() P) )) 

The output on thfl disk appears in the fit* 1 TPAC OUTPUT, 
which is created In temporary modpj : Tt may'" ho printed 
on-linp usin^ the PRIKT command, ■ * ■ '* "' 

UKTRAC<( NAME! NAME2,, . wNAMEn)) stops the trfccTng. of 1 the 
functions n;*med. On** n»Ay now trace, them ftjtfl I n, perh?ps with 
di f f or^nt combf nations • 



TRAC a) tors the def ini t ion of the funct Ions he I n; 
f reccd, adrfi n* pr f nt itntftmants In sul tflhTo places. UMTRAC 
suppresses those modifications to the definitions, 

,lf a. function is a SUflR, TRAC asks for a list of its 
arguments. Then It defines In pt z*ee of this function a dnrmy 
on^ 7 and proc rt ^ds to trace thn latter. 

TRAC uses the property H*t of the atom TRA0F1, under 
which It < tores the nunh^rs which [ nd irate thn depth of 

recurs ion, 

TRAC Is ohtalned hy linking to TPACF2 LISP T33G 1*1711, 
and then executing L0A0((TRACF3) ) , 






PAGE 12 



Arynrvt 1 r*rf r^f^n t <: 



Tho feature? of this system am *i product of th» 
susfiostlons of srvor*] prople, Lev/Is Norton tin-1 Hurren 
TrHteHan deserve spocfrt nontion b^caus* thpy greatly aided 
In the d*bu£cin>: of tho system. D*n Edwards distuned so^i* 
of the I /0 roodif icat ions, Tim H->rt rewrote the EVM.QU0TE 
operator *nnd William Martin wrote tHc EXPLODE routine. 
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